Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim str4 As String
Dim str5 As String
Dim str6 As String
Dim year As Integer
Dim str8 As String

Dim flag1 As Byte
Dim flag2 As Byte
Dim flag3 As Byte
Dim flag4 As Byte
Dim flag5 As Byte
Dim flag6 As Byte
Dim flag7 As Byte
Dim flag8 As Byte




Private Sub Command1_Click()
MsgBox ("Your information :" & vbNewLine & str1 & vbNewLine & str2 & vbNewLine & str3 & vbNewLine & str4 & vbNewLine & str5 & vbNewLine & str6 & vbNewLine & year & vbNewLine & str8 & vbNewLine & vbNewLine & "Do you confirme it?")


End Sub

Private Sub Command2_Click()

Do
    str1 = InputBox("Enter Your Melli Code :")
Loop While (str1 Like "##########") = False

Label2.Caption = str1
Label2.BackColor = vbGreen

flag1 = 1
If ((flag1 + flag2 + flag3 + flag4 + flag5 + flag6 + flag7 + flag8) = 8) Then
    Command1.Enabled = True
End If

End Sub

Private Sub Command3_Click()

Do
    str2 = InputBox("Enter Your IR-MCI Mobile Number :")
Loop While (str2 Like "091########") = False

Label3.Caption = str2
Label3.BackColor = vbGreen

flag2 = 1
If ((flag1 + flag2 + flag3 + flag4 + flag5 + flag6 + flag7 + flag8) = 8) Then
    Command1.Enabled = True
End If

End Sub

Private Sub Command4_Click()

Do
    str3 = InputBox("Enter Your IranCell Mobile Number :")
Loop While (str3 Like "093########") = False

Label4.Caption = str3
Label4.BackColor = vbGreen

flag3 = 1
If ((flag1 + flag2 + flag3 + flag4 + flag5 + flag6 + flag7 + flag8) = 8) Then
    Command1.Enabled = True
End If

End Sub

Private Sub Command5_Click()


Do
    str4 = InputBox("Enter Your General Email Address :")
Loop While (str4 Like "*@*.*") = False

Label6.Caption = str4
Label6.BackColor = vbGreen

flag4 = 1
If ((flag1 + flag2 + flag3 + flag4 + flag5 + flag6 + flag7 + flag8) = 8) Then
    Command1.Enabled = True
End If
End Sub

Private Sub Command6_Click()

Do
    str5 = InputBox("Enter Your Gmail Address :")
Loop While (str5 Like "*@gmail.com") = False

Label7.Caption = str5
Label7.BackColor = vbGreen

flag5 = 1
If ((flag1 + flag2 + flag3 + flag4 + flag5 + flag6 + flag7 + flag8) = 8) Then
    Command1.Enabled = True
End If
End Sub

Private Sub Command7_Click()


Do
    str6 = InputBox("Enter Your Yahoo Mail Address :")
Loop While (str6 Like "*@yahoo.com") = False

Label8.Caption = str6
Label8.BackColor = vbGreen

flag6 = 1
If ((flag1 + flag2 + flag3 + flag4 + flag5 + flag6 + flag7 + flag8) = 8) Then
    Command1.Enabled = True
End If
End Sub

Private Sub Command8_Click()


Do
    year = InputBox("Enter Your Year of graduation :")
Loop While (1900 < year And year < 2015) = False

Label9.Caption = year
Label9.BackColor = vbGreen

flag7 = 1
If ((flag1 + flag2 + flag3 + flag4 + flag5 + flag6 + flag7 + flag8) = 8) Then
    Command1.Enabled = True
End If
End Sub

Private Sub Command9_Click()


Do
    str8 = InputBox("Enter Your Website Address:")
Loop While (str8 Like "www.*.*") = False

Label10.Caption = str8
Label10.BackColor = vbGreen

flag8 = 1
If ((flag1 + flag2 + flag3 + flag4 + flag5 + flag6 + flag7 + flag8) = 8) Then
    Command1.Enabled = True
End If
End Sub

Private Sub Form_Load()
Command1.Enabled = False

End Sub

